#!/usr/bin/perl
use File::Spec;
use strict;

$, = "\t"; $\ = "\n";
#------获得当前文件所在的绝对路径-----#
	
	my $path_curf = File::Spec->rel2abs(__FILE__);
	#print "C PATH = ",$path_curf,"\n";
	my ($vol, $dir, $file) = File::Spec->splitpath($path_curf);
	#print "C Dir = ", $dirs,"\n";
#------获得当前文件所在的绝对路径------#

#合成命令
my $cmd = 'cd '.$dir.' && java -jar ssh-batch.jar';
#print $cmd;

#执行命令
exec $cmd;
